      BLOCK DATA
C     ****************   BLOCK  DATA  3    ***********************
C
C     BLOCK DATA 3 PRESETS ALL THE INPUT VARIABLES
C     IN SUBROUTINE READTH AND INCOMING NEW INPUT VARIABLES
C
C     WRITTEN BY K. YONG OF CSC IN JANUARY 1976
C
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 I3,I2OVI3
C
      COMMON/CSBNDS/CSUP(20),CSDN(20),GNIC(10)
C
      COMMON/CSTAT /SVCS(20),SVCDOT(20),CPARM(43)
C
      COMMON/ICNTRL/KNTRL(10)
C
      COMMON/THRUST/TV(3,2),TLOC(3,2),TTIM(4,2),TPAR(4,2),REF(2)
C
      COMMON/ITCNTL/IPULSE,ISPLSE,KPULSE,ITSW,IOTSW,IPLPRP
C
      COMMON/IKPLER/IKPLR
C
      COMMON/XKPLER/AS,E,F,EI,BW,W,BWDOT,WDOT
C
      COMMON/INUMP/ ISPNP
C
      COMMON/HOUTPT/ IHCALC,IHREF,IHFLAG
C
      COMMON/CWHEEL/VW(3),VSUR(3),VSDR(3)
C
      COMMON/IACC/ IACOMP,IHUBAC,ITIPAC,IAFLAG
C
      COMMON/NUMACC/NUMHUB
C
      COMMON/ACCHUB/ YHUB(3,6),HUBACC(3,6),ACCRED(6),ALFAEA(6),
     *BETAEA(6),GAMAEA(6),DKAT(3,3,6)
C
      COMMON/SHAPES/ZXI(10,3),ZXIP(10,3),ZXIPP(10,3),ZZNP(10,3,3)
C
      COMMON/INPFFT/ICSD,IDUM(258)
C
      COMMON/IPRYRT/IPRY,IGGANG
C
      COMMON/PRYRAT/PRAT,RRAT,YRAT
C
      COMMON/TMSINR/ TIPINR(3,10),RTSQ(3,10),XIPL(6),BETL(6)
C
      COMMON/INTTRP/ITPROT,NUMTIP(10),IRDBUG
C
      COMMON/GRNTST/ALFAEG,DELTAG,PHASEG,ALTUDE,OMGY(3),
     *              GACC(3),GLOCAT(3),IGRUND,IALTUD,IGASBR
C
      COMMON/PUNCH /IPUN,IPUNCH
C
      COMMON/ITW/ITWIST,ITWST1
C
      COMMON/RNEWR / ZA(10),I3(10),I2OVI3(10),
     *             ZDQ(10),ZJ(10),D2(10),D3(10)
C
      COMMON/INEWR/NKT(10),ICP,ICPS
C
      COMMON/RNEWV/CW(10,3),CDW(10,3)
C
C
      COMMON/TWIBND/TWIUP,TWIDN,TWDUP,TWDDN
C
      COMMON/TWIDMP/ CDTW(3,10)
C
      COMMON/COMSL1/ ZS101(2),ZS102(2),ZS111(6),ZS112(6),ZS113(6)
     *              ,ZS121(18),ZS122(18),ZS123(18),ZS124(18),ZS131(54)
     *              ,ZS132(54),ZS141(162),Z2S101(2),Z2S112(6)
     *              ,Z2S123(18),XLTEST
C
      DIMENSION V41(40),V42(41),V43(40),V44(41)
      EQUIVALENCE (ZS141(1),V41(1)),(ZS141(41),V42(1))
      EQUIVALENCE (ZS141(82),V43(1)),(ZS141(122),V44(1))
C     PRESET VARIABLES WITH DATA STATEMENTS
C
      DATA CSUP/14*1.0D-2,1.0D-1,5*1.0D-2/
      DATA CSDN/14*1.0D-4,1.0D-3,5*1.0D-4/
      DATA GNIC/10*0.0D0/
C
      DATA SVCS/20*0.0D0/
      DATA CPARM/35*0.0D0,5*1.0D0,3*0.0D0/
C
      DATA KNTRL/10*0/
C
      DATA IACOMP,IHUBAC,ITIPAC/3*0/
C
      DATA NUMHUB/6/
C
C
      DATA YHUB/18*0.0D0/
C
      DATA ALFAEA,BETAEA,GAMAEA/18*0.0D0/
      DATA ZXI/30*1.0D0/
C
      DATA ZXIPP/30*0.0D0/
C
      DATA ZXIP/1.33D0,4.53D0,7.24D0,1.33D0,4.53D0,7.24D0,
     *          1.33D0,4.53D0,7.24D0,1.33D0,4.53D0,7.24D0,
     *          1.33D0,4.53D0,7.24D0,1.33D0,4.53D0,7.24D0,
     *          1.33D0,4.53D0,7.24D0,1.33D0,4.53D0,7.24D0,
     *          1.33D0,4.53D0,7.24D0,1.33D0,4.53D0,7.24D0/
C
      DATA ZZNP/1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0,
     *          1.143D0,1.827D0,0.877D0,1.827D0,8.337D0,5.002D0,
     *          0.877D0,5.002D0,20.26D0/
C
      DATA IHCALC,IHREF,IPULSE,ISPLSE,KPULSE/5*0/
      DATA IPLPRP/1/
C
      DATA ISPNP/5/
C
      DATA IKPLR/1/
C
      DATA AS,E,EI,F,BW,W,BWDOT,WDOT/8000.0D0,7*0.0D0/
C
      DATA TV/0.0D0,0.0D0,1.0D0,0.0D0,0.0D0,1.0D0/
C
      DATA TLOC/6*0.0D0/
C
      DATA TTIM/0.0D0,5.0D0,10.0D0,15.0D0,5.0D0,10.0D0,15.0D0,20.0D0/
C
      DATA TPAR/1.0D0,1.0D4,0.0D0,1.0D4,1.0D0,1.0D4,0.0D0,1.0D4/
C
      DATA REF/90.0D0,270.0D0/
C
      DATA VSUR/3*1.0D6/
      DATA VSDR/3*-1.0D6/
C
      DATA ICSD,IDUM/259*0/
C
      DATA IPRY/0/
C
      DATA PRAT,RRAT,YRAT/3*0.0D0/
C
      DATA TIPINR/30*0.0D0/
C
      DATA XIPL/1.3333D0,4.5263D0,32.2368D0,1.3333D0,4.5263D0,32.2368D0/
C
      DATA BETL/6*1.0D0/
C
      DATA ITPROT,NUMTIP,IRDBUG/12*0/
C
      DATA IGRUND,IALTUD,IGASBR/3*0/
C
C
      DATA ALFAEG,DELTAG,PHASEG,ALTUDE,OMGY,GLOCAT/10*0.0D0/
C
      DATA GACC/0.0D0,0.0D0,32.1461552D0/
C
C
      DATA ITWST1,ITWIST/2*0/
C
      DATA ZA/10*3.757072066D-2/
C
      DATA ZDQ/10*7.463049723D-8/
C
      DATA ZJ/10*2.118082743D-4/
C
      DATA I2OVI3/10*1.0D0/
C
C
      DATA NKT/10*0/
C
      DATA IPUNCH/0/
C
      DATA CW,CDW/60*0.0D0/
      DATA TWIUP/1.0D-4/
      DATA TWIDN/1.0D-6/
      DATA TWDUP/1.0D-5/
      DATA TWDDN/1.0D-7/
      DATA D2,D3/20*0.0D0/
C
      DATA CDTW/30*0.0D0/
C
      DATA ZS101/0.5D0,0.5D0/
      DATA ZS102/0.33333333D0,0.33333333D0/
      DATA Z2S101/1.0D0,1.0D0/
C     ONE DIM. ARRAYS PS111,PS112,PS113
      DATA ZS111/
     * 0.60000000D+00, 0.12385965D+01, 0.86234490D+00,
     * 0.60000000D+00, 0.12385965D+01, 0.86234490D+00/
      DATA ZS112/
     * 0.28888889D+00,-0.45614031D-01, 0.14805957D-01,
     * 0.28888889D+00,-0.45614031D-01, 0.14805957D-01/
      DATA ZS113/
     * 0.22539683D+00, 0.23934840D-01, 0.59690807D-02,
     * 0.22539683D+00, 0.23934840D-01, 0.59690807D-02/
      DATA Z2S112/
     * 0.10000000D+01, 0.10000000D+01, 0.10000000D+01,
     * 0.10000000D+01, 0.10000000D+01, 0.10000000D+01/
C     TWO DIM. ARRAYS PS121,PS122,PS123,PS124.
      DATA ZS121/
     * 0.74285714D+00, 0.17108883D+01, 0.12061375D+01, 0.17108883D+01,
     * 0.57860088D+01, 0.57419268D+01, 0.12061375D+01, 0.57419268D+01,
     * 0.12291620D+02,
     * 0.74285714D+00, 0.17108883D+01, 0.12061375D+01, 0.17108883D+01,
     * 0.57860088D+01, 0.57419268D+01, 0.12061375D+01, 0.57419268D+01,
     * 0.12291620D+02/
      DATA ZS122/
     * 0.37160494D+00, 0.10270955D+01, 0.10037819D+01,-0.27095515D-01,
     * 0.35770167D+00, 0.11486905D+01,-0.37819135D-02,-0.14869050D+00,
     * 0.35647733D+00,
     * 0.37160494D+00, 0.10270955D+01, 0.10037819D+01,-0.27095515D-01,
     * 0.35770167D+00, 0.11486905D+01,-0.37819135D-02,-0.14869050D+00,
     * 0.35647733D+00/
      DATA ZS123/
     * 0.30123457D+00, 0.18635478D+00,-0.23121422D+00, 0.18635478D+00,
     * 0.18486359D+01,-0.15921989D+00,-0.23121422D+00,-0.15921989D+00,
     * 0.54122640D+01,
     * 0.30123457D+00, 0.18635478D+00,-0.23121422D+00, 0.18635478D+00,
     * 0.18486359D+01,-0.15921989D+00,-0.23121422D+00,-0.15921989D+00,
     * 0.54122640D+01/
      DATA ZS124/
     * 0.54038800D+00, 0.14543581D+01, 0.13397127D+01, 0.14543581D+01,
     * 0.46397988D+01, 0.53205356D+01, 0.13397127D+01, 0.53205356D+01,
     * 0.94304843D+01,
     * 0.54038800D+00, 0.14543581D+01, 0.13397127D+01, 0.14543581D+01,
     * 0.46397988D+01, 0.53205356D+01, 0.13397127D+01, 0.53205356D+01,
     * 0.94304843D+01/
      DATA Z2S123/
     * 0.11428571D+01, 0.18270677D+01, 0.87728422D+00, 0.18270677D+01,
     * 0.83370706D+01, 0.50020958D+01, 0.87728422D+00, 0.50020958D+01,
     * 0.20255012D+02,
     * 0.11428571D+01, 0.18270677D+01, 0.87728422D+00, 0.18270677D+01,
     * 0.83370706D+01, 0.50020958D+01, 0.87728422D+00, 0.50020958D+01,
     * 0.20255012D+02/
C     THREE DIM. ARRAYS PS131,PS132.
      DATA ZS131/
     * 0.39057239D+00, 0.11204442D+01, 0.11648463D+01, 0.26521354D+00,
     * 0.11123255D+01, 0.19064333D+01,-0.29933018D+00,-0.72318353D+00,
     * 0.14354946D+00, 0.26521354D+00, 0.11123255D+01, 0.19064333D+01,
     * 0.23751121D+01, 0.66868945D+01, 0.75761527D+01,-0.11964413D+00,
     * 0.79087827D+00, 0.30564911D+01,-0.29933018D+00,-0.72318353D+00,
     * 0.14354946D+00,-0.11964413D+00, 0.79087827D+00, 0.30564911D+01,
     * 0.68788892D+01, 0.18113411D+02, 0.16788350D+02,
     * 0.39057239D+00, 0.11204442D+01, 0.11648463D+01, 0.26521354D+00,
     * 0.11123255D+01, 0.19064333D+01,-0.29933018D+00,-0.72318353D+00,
     * 0.14354946D+00, 0.26521354D+00, 0.11123255D+01, 0.19064333D+01,
     * 0.23751121D+01, 0.66868945D+01, 0.75761527D+01,-0.11964413D+00,
     * 0.79087827D+00, 0.30564911D+01,-0.29933018D+00,-0.72318353D+00,
     * 0.14354946D+00,-0.11964413D+00, 0.79087827D+00, 0.30564911D+01,
     * 0.68788892D+01, 0.18113411D+02, 0.16788350D+02/
      DATA ZS132/
     * 0.48067981D+00, 0.13609444D+01, 0.13706299D+01, 0.13609444D+01,
     * 0.43053593D+01, 0.51468906D+01, 0.13706299D+01, 0.51468906D+01,
     * 0.86484028D+01,-0.38378794D-02, 0.45228008D+00, 0.14439041D+01,
     * 0.45228008D+00, 0.14636030D+01, 0.33783292D+01, 0.14439041D+01,
     * 0.33783292D+01, 0.25944062D+01,-0.19839701D-01,-0.12202412D+00,
     * 0.46835396D+00,-0.12202412D+00, 0.43725777D+00, 0.17422467D+01,
     * 0.46835396D+00, 0.17422467D+01, 0.30963212D+01,
     * 0.48067981D+00, 0.13609444D+01, 0.13706299D+01, 0.13609444D+01,
     * 0.43053593D+01, 0.51468906D+01, 0.13706299D+01, 0.51468906D+01,
     * 0.86484028D+01,-0.38378794D-02, 0.45228008D+00, 0.14439041D+01,
     * 0.45228008D+00, 0.14636030D+01, 0.33783292D+01, 0.14439041D+01,
     * 0.33783292D+01, 0.25944062D+01,-0.19839701D-01,-0.12202412D+00,
     * 0.46835396D+00,-0.12202412D+00, 0.43725777D+00, 0.17422467D+01,
     * 0.46835396D+00, 0.17422467D+01, 0.30963212D+01/
C     FOUR DIM. ARRAY PS141.
      DATA V41/
     * 0.50820525D+00, 0.14820563D+01, 0.15792565D+01, 0.14820563D+01,
     * 0.46852807D+01, 0.57425293D+01, 0.15792565D+01, 0.57425293D+01,
     * 0.93644071D+01, 0.36963379D+00, 0.14661925D+01, 0.24817080D+01,
     * 0.14661925D+01, 0.47958472D+01, 0.73896743D+01, 0.24817080D+01,
     * 0.73896743D+01, 0.95550142D+01,-0.38391314D+00,-0.90933690D+00,
     * 0.14005310D+00,-0.90933690D+00,-0.21259540D+01,-0.30637439D+00,
     * 0.14005310D+00,-0.30637444D+00,-0.18034030D+01, 0.36963379D+00,
     * 0.14661925D+01, 0.24817080D+01, 0.14661925D+01, 0.47958472D+01,
     * 0.73896743D+01, 0.24817080D+01, 0.73896743D+01, 0.95550142D+01,
     * 0.30758198D+01, 0.89218879D+01, 0.10277203D+02, 0.89218879D+01/
      DATA V42/
     * 0.29158897D+02, 0.37557021D+02, 0.10277203D+02, 0.37557021D+02,
     * 0.61397708D+02,-0.74699706D-01, 0.98113816D+00, 0.39580336D+01,
     * 0.98113816D+00, 0.34645783D+01, 0.10948161D+02, 0.39580335D+01,
     * 0.10948158D+02, 0.12550976D+02,-0.38391314D+00,-0.90933690D+00,
     * 0.14005310D+00,-0.90933690D+00,-0.21259540D+01,-0.30637439D+00,
     * 0.14005310D+00,-0.30637444D+00,-0.18034030D+01,-0.74699706D-01,
     * 0.98113816D+00, 0.39580336D+01, 0.98113816D+00, 0.34645783D+01,
     * 0.10948161D+02, 0.39580335D+01, 0.10948158D+02, 0.12550976D+02,
     * 0.88281925D+01, 0.24118457D+02, 0.23047172D+02, 0.24118457D+02,
     * 0.76873275D+02, 0.90027240D+02, 0.23047172D+02, 0.90027288D+02,
     * 0.16058328D+03/
      DATA V43/
     * 0.50820525D+00, 0.14820563D+01, 0.15792565D+01, 0.14820563D+01,
     * 0.46852807D+01, 0.57425293D+01, 0.15792565D+01, 0.57425293D+01,
     * 0.93644071D+01, 0.36963379D+00, 0.14661925D+01, 0.24817080D+01,
     * 0.14661925D+01, 0.47958472D+01, 0.73896743D+01, 0.24817080D+01,
     * 0.73896743D+01, 0.95550142D+01,-0.38391314D+00,-0.90933690D+00,
     * 0.14005310D+00,-0.90933690D+00,-0.21259540D+01,-0.30637439D+00,
     * 0.14005310D+00,-0.30637444D+00,-0.18034030D+01, 0.36963379D+00,
     * 0.14661925D+01, 0.24817080D+01, 0.14661925D+01, 0.47958472D+01,
     * 0.73896743D+01, 0.24817080D+01, 0.73896743D+01, 0.95550142D+01,
     * 0.30758198D+01, 0.89218879D+01, 0.10277203D+02, 0.89218879D+01/
      DATA V44/
     * 0.29158897D+02, 0.37557021D+02, 0.10277203D+02, 0.37557021D+02,
     * 0.61397708D+02,-0.74699706D-01, 0.98113816D+00, 0.39580336D+01,
     * 0.98113816D+00, 0.34645783D+01, 0.10948161D+02, 0.39580335D+01,
     * 0.10948158D+02, 0.12550976D+02,-0.38391314D+00,-0.90933690D+00,
     * 0.14005310D+00,-0.90933690D+00,-0.21259540D+01,-0.30637439D+00,
     * 0.14005310D+00,-0.30637444D+00,-0.18034030D+01,-0.74699706D-01,
     * 0.98113816D+00, 0.39580336D+01, 0.98113816D+00, 0.34645783D+01,
     * 0.10948161D+02, 0.39580335D+01, 0.10948158D+02, 0.12550976D+02,
     * 0.88281925D+01, 0.24118457D+02, 0.23047172D+02, 0.24118457D+02,
     * 0.76873275D+02, 0.90027240D+02, 0.23047172D+02, 0.90027288D+02,
     * 0.16058328D+03/
      DATA XLTEST/1.0D6/
C
      END
